home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / SURVIVE / procs.sql < prev    next >
Encoding:
Text File  |  1997-05-18  |  449 b   |  24 lines
  1. connect "e:\sst\articles\9707\code\demo.gdb"
  2.   user "SYSDBA" password "masterkey";
  3.  
  4. set term !!;
  5.  
  6. drop procedure CreditNew!!
  7. create procedure CreditNew(iCreditNo integer, iCustNo integer)
  8.   returns (oCreditNo integer)
  9. as begin
  10.   if (iCreditNo is null) then
  11.     iCreditNo = gen_id(Gen_CreditNo, 1);
  12.   oCreditNo = :iCreditNo;
  13.  
  14.   insert into Credits (CreditNo, CustNo)
  15.     values (:iCreditNo, :iCustNo);
  16. end!!
  17.  
  18. set term ;!!
  19.  
  20.  
  21.  
  22.  
  23.  
  24.